home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Tools / Freeware / PerfectPaint / rexx / Border / Script&Picture / b2_3.brx < prev    next >
Text File  |  2002-10-15  |  639b  |  52 lines
  1. /* Ellipse Border */
  2.  
  3.     options results
  4.     parse ARG Port b
  5.     
  6.     ADDRESS value Port
  7.  
  8.     pp_Progresstext 'Border'
  9.  
  10.     pp_GetWidth
  11.     W=result
  12.     pp_GetHeight
  13.     H=result
  14.     pp_ClosestColor 255 255 255
  15.     White=result
  16.     pp_ClosestColor 0 0 0
  17.     Black=result
  18.  
  19.     pp_StencilOff
  20.     pp_EffectOff
  21.     pp_SpareOnOff
  22.     pp_ComposeReqOff
  23.     pp_Compose 0 100 0
  24.     pp_SetApen Black
  25.     pp_SetBpen White
  26.     pp_Cls
  27.  
  28.     pp_PenType 1
  29.     pp_PenSize 5
  30.     pp_Box 11 11 W-11 H-11
  31.  
  32.     pp_PenSize 2
  33.     pp_Box 23 23 W-23 H-23
  34.  
  35.     pp_EffectOn
  36.     pp_sin 1 4 326 4 326
  37.     pp_BoxF 0 0 W-1 H-1    
  38.     pp_GaussianBlur 10
  39.     pp_BoxF 0 0 W-1 H-1
  40.     pp_EffectOff
  41.     pp_Adjustlevels 96 168
  42.  
  43.     pp_SparetoStencil
  44.     pp_InvStencil
  45.  
  46.     EXIT
  47.     
  48.  
  49.  
  50.     
  51.  
  52.